home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Testing & Debugging / Debuggers & dcmds / MacsBug 6.5d9 / dcmds / C Samples / File.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-26  |  5.8 KB  |  266 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        File.c
  3.  
  4.     Contains:    This is the FCB dcmd.
  5.  
  6.     Written by:    Scott Douglas, Dave Lyons.
  7.  
  8.     Copyright:    © 1988,1993-1994 by Apple Computer, Inc., all rights reserved.
  9.  
  10.     Change History (most recent first):
  11.  
  12.          <4>     5/13/94    DAL        Deal with carriage returns inside filenames (changed put.c).
  13.          <3>   24-Jan-94    JM3        With the Universal Interfaces, EqualString is now in
  14.                                     TextUtils.h. Blah.
  15.          <2>     9/13/93    DAL        made some columns wider and fixed the filename-prefix feature to
  16.                                     work again
  17.  
  18.     Modification history:
  19.         29Nov88 sad        revised for new dcmd names.
  20.          5Oct88    sad        broke out formatting routines to put.c
  21.         30Sep88 sad        written
  22.  
  23.     The following MPW commands will build the dcmd and copy it to the
  24.     "Debugger Prefs" file in the System folder. The dcmd's name in
  25.     MacsBug will be the name of the file built by the Linker.
  26.     You must first copy dcmd.h, dcmdGlue.a.o and DRunTime.o from the
  27.     C Samples folder into this folder.
  28.  
  29.     C Put.c
  30.     C File.c
  31.     Link dcmdGlue.a.o File.c.o put.c.o DRuntime.o "{Libraries}"Interface.o -o File
  32.     BuildDcmd File 1003
  33.     Echo 'include "File";'    |    Rez -a -o "{systemFolder}Debugger Prefs"
  34. */
  35.  
  36. #include <Types.h>
  37. #include <Memory.h>
  38. #include <Files.h>
  39. #include <OSUtils.h>
  40. #include <TextUtils.h>
  41.  
  42. #include "dcmd.h"
  43. #include "put.h"
  44.  
  45. #define FSFCBLen 0x3f6
  46. #define FCBsPtr 0x34e
  47.  
  48. typedef struct FCB
  49. {
  50.     unsigned long fcbFlNum;
  51.     unsigned char fcbMdRByt;
  52.     unsigned char fcbTypByt;
  53.     unsigned short fcbSBlk;
  54.     unsigned long fcbEOF;
  55.     unsigned long fcbPLen;
  56.     unsigned long fcbCrPs;
  57.     VCB* fcbVPtr;
  58.     void* fcbBfAdr;
  59.     unsigned short fcbFlPos;
  60.     unsigned long fcbClmpSize;
  61.     void* fcbBTCBPtr;
  62.     unsigned long fcbExtRec[3];
  63.     OSType fcbFType;
  64.     unsigned long fcbCatPos;
  65.     unsigned long fcbDirID;
  66.     char fcbCName[32];
  67. } FCB;
  68.  
  69.  
  70. static void DrawHdr()
  71. {
  72. //                             1         2         3         4         5         6         7
  73. //                    1234567890123456789012345678901234567890123456789012345678901234567890
  74.     dcmdDrawLine("\pfRef File                   Vol         Type Fl Fork     LEof     Mark  FlNum Parent FCB at");
  75. }
  76.  
  77.  
  78. static void DrawFCB(int fref, FCB* fcbp)
  79. {
  80.     PutUHexWord(fref);
  81.     PutSpace();
  82.     PutPStrTruncTo(fcbp->fcbCName,17+10);
  83.     PutSpace();
  84.     PutPStrTruncTo(fcbp->fcbVPtr->vcbVN,26+10+3);
  85.     PutSpace();
  86.     PutOSType(fcbp->fcbFType);
  87.     PutSpace();
  88.     PutChar((fcbp->fcbMdRByt & 0x80) ? 'D' : 'd');
  89.     PutChar((fcbp->fcbMdRByt & 0x01) ? 'W' : 'w');
  90.     PutSpace();
  91.     if (fcbp->fcbMdRByt & 0x02)
  92.         PutPStr("\prsrc ");
  93.     else
  94.         PutPStr("\pdata ");
  95.     PutUDecTo(fcbp->fcbEOF,47+11+3);
  96.     PutSpace();
  97.     PutUDecTo(fcbp->fcbCrPs,55+12+3);
  98.     PutSpace();
  99.     PutUHexZTo(fcbp->fcbFlNum,6,62+12+3);
  100.     PutSpace();
  101.     PutUHexZTo(fcbp->fcbDirID,6,69+12+3);
  102.     PutSpace();
  103.     PutUHexZTo((unsigned long)fcbp,6,76+12+3);
  104.     PutLine();
  105. }
  106.  
  107.  
  108. static Boolean PrefixPStr(const Str255 astr, const Str255 bstr)
  109. // returns true if astr is equal to a prefix of bstr
  110. //    astr must not be longer than 31 characters
  111. {
  112.     char newstr[31];
  113.     int alen = *astr;
  114.     int blen = *bstr;
  115.     if (alen <= blen)
  116.     {
  117.         BlockMove(bstr+1,newstr+1,alen);
  118.         newstr[0] = alen;
  119.         return EqualString(astr,newstr,false,true);
  120.     }
  121.     else
  122.         return false;    
  123. }
  124.  
  125.  
  126.  
  127. pascal void CommandEntry(dcmdBlock* paramPtr)
  128. {
  129.     switch (paramPtr->request)
  130.     {
  131.         case dcmdInit:
  132.             break;
  133.  
  134.         case dcmdHelp:
  135.             dcmdDrawLine("\pfile [fRefNum|\"file name\"]");
  136.             dcmdDrawLine("\p   Displays file information on all open files, or for the given fRefNum or filename.");
  137.             dcmdDrawLine("\p      Flags are D/d=Dirty, W/w=writeable.");
  138.             break;
  139.  
  140.         case dcmdDoIt:
  141.         {
  142.             Boolean doOneFCB = false;
  143.             long fref;
  144.             short c;
  145.             Boolean haveFileName = false;
  146.             Str255 filename;
  147.             int fcblen;                // the length of one fcb
  148.             char* fcbsbase;
  149.             int fcbslen;            // the length of the fcbs block
  150.  
  151.             dcmdSwapWorlds();
  152.  
  153.             dcmdDrawLine("\pDisplaying File Control Blocks");
  154.  
  155.             // get low-memory values after dcmdSwapWorlds()
  156.             fcblen = *(unsigned short*)FSFCBLen;
  157.             fcbsbase = *(char**)FCBsPtr;
  158.             fcbslen = *(unsigned short*)fcbsbase;
  159.  
  160.             if (fcblen != sizeof(FCB))
  161.             {
  162.                 PutPStr("\FSFCBLen = ");
  163.                 PutUDec(fcblen);
  164.                 PutPStr("\p expected ");
  165.                 PutUDec(fcblen);
  166.                 PutLine(sizeof(FCB));
  167.             }
  168.             if ((fcbslen - 2) % fcblen != 0)
  169.             {
  170.                 PutPStr("\pBad fcbslen ");
  171.                 PutUHexWord(fcbslen);
  172.                 PutLine();
  173.             }
  174.  
  175.             c = dcmdPeekAtNextChar();
  176.             if (c == '"' || c == '\'')
  177.             {
  178.                 haveFileName = true;
  179.                 (void) dcmdGetNextParameter(filename);
  180.             }
  181.             else
  182.                 (void) dcmdGetNextExpression(&fref, &doOneFCB);
  183.  
  184.             if (doOneFCB)
  185.             {
  186.                 fref = (unsigned short)fref;
  187.                 if ((fref > fcbslen) || ((fref - 2) % fcblen != 0))
  188.                 {
  189.                     PutPStr("\pBad file refnum ");
  190.                     PutUHexWord(fref);
  191.                     PutLine();
  192.                 }
  193.                 else
  194.                 {
  195.                     FCB* fcbp = (FCB*)(fref + fcbsbase);
  196.                     if (fcbp->fcbFlNum)
  197.                     {
  198.                         DrawHdr();
  199.                         DrawFCB(fref,fcbp);
  200.                     }
  201.                     else
  202.                     {
  203.                         PutPStr("\pFCB ");
  204.                         PutUHexWord(fref);
  205.                         PutPStr("\p is not in use");
  206.                         PutLine();
  207.                     }
  208.                 }
  209.             }
  210.             else
  211.             {
  212.                 int numfcbs = (fcbslen - 2) / fcblen;
  213.                 int fcbsused = 0;
  214.                 Boolean foundOne = false;
  215.                 for (fref = 2; fref < fcbslen; fref += fcblen)
  216.                 {
  217.                     FCB* fcbp = (FCB*)(fcbsbase + fref);
  218.                     if (fcbp->fcbFlNum &&
  219.                         (!haveFileName || PrefixPStr(filename,fcbp->fcbCName)))
  220.                     {
  221.                         fcbsused++;
  222.                         if(!foundOne)
  223.                         {
  224.                             DrawHdr();
  225.                             foundOne = true;
  226.                         }
  227.                         DrawFCB(fref,fcbp);
  228.                     }
  229.                     if (paramPtr->aborted)
  230.                         break;
  231.                 }
  232.                 if (!paramPtr->aborted)
  233.                     if (haveFileName)
  234.                     {
  235.                         if (!foundOne)
  236.                         {
  237.                             PutPStr("\pNo open files match \"");
  238.                             PutPStr(filename);
  239.                             PutChar('"');
  240.                             PutLine();
  241.                         }
  242.                     }
  243.                     else
  244.                     {
  245.                         PutUDec(numfcbs);
  246.                         PutPStr("\p FCBs, ");
  247.                         PutUDec(fcbsused);
  248.                         PutPStr("\p in use, ");
  249.                         PutUDec(numfcbs - fcbsused);
  250.                         PutPStr("\p free");
  251.                         PutLine();
  252.                     }
  253.             }    
  254.  
  255.             dcmdSwapWorlds();
  256.             break;
  257.         }
  258.  
  259.         default:
  260.             PutPStr("\punknown request ");
  261.             PutUDec(paramPtr->request);
  262.             PutLine();
  263.             break;
  264.     }
  265. }
  266.